DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


| **F ILE **1D®*HANDLE 
HH HH = AAAAAA NN NN DDDDDDDD LL EEEEEEEEEE 
HH 4H = AAAAAA NN NN DDDDDDDD LL EEEEEEEEEE 
or HH AA AA NN NN DD DD LL EE 
HH HH AA AA NN NN DD DD LL EE 
HH HH AA AA NNNN NN DD DD LL EE 
HH HH AA AA WNNNN NN DD DD LL EE 
HHHHHHHHHH = AA AA NN WN NN DD DD LL EEEEEEEE 
HHHHHHHHHH AA AA NN NN NN DD DD LL EEEEEEEE 
Hei HH AAAAAAAAAA NN oNNNN DD DD LL EE 
HH HH AAAAAAAAAA NN NNNN ODD DD LL EE 
HH HH AA AA NN NN DD DD LL EE sees 
HH HH AA AA NN NN DD DD LL EE eoee 
Hi HH AA AA NN NN DDDDDDDD LLLLLLLLLL EEEEEEEEEE “owe 
HH HH AA AA NN NN DDDDDDDD = LLLLLLLLLL EEEEEEEEEE nar 
LL eeeee! SSSSSSSS 
LL HI SSSSSSSS 
LL 1 $$ 
LL II $ 
LL 1] S$ 
LL II $ 
LL II SSSSSS 
tt 1 SSSSSS 
Lt II $$ 
LL II SS 
LL 1 $5 
Lt II $5 
LLLLLLLLLL «ITI = SSSSSSSS 
LLLLLELLLE «= sTTIII = SSSSSSSS 
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CONDITION AND CONTROL Y AST HANDLER ROUTINES 

D. N. CUTLER 29-MAR-77 

MODIFIED BY: 


V04-002 HWS0109 Harold Schultz 14-Sep-1984 
Enable the AST error checking code added by HWS0107 


v04-001 + Harold Schultz 07-Sep-1984 
In de “eTRLcy AST routine, save the AST status. When 
feenedt ing the CTRL-Y¥ AST, save the return status and the 
I0SB. Add code to set hangup pending if any error on reenabling 
cTRL= Y "ASI (temporarily branch around error checking code 
or now). 


v03-011 HwWS0085 Harold Schultz 19-Jul-1984 
In the CTRL-T process ing use value of SCSNODE for node 
name only if no transla jon of SYSSNODE. 


v03-010 MuSOOSS Harold Schultz 03-Apr-1984 
Pass cli table name, if any, to the spawned process. 


v03-010 wuSO06? Harold Schultz 02-Apr-1984 
Fix “T to handle multiple sets of brackets when formatting 
the imagename. 


v03-009 wus00ze Harold Schultz 08-Mar-1984 
on't output *::' on “T when node name not present 


v03-008 PCG0007 Peter George 08-F eb-1984 
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12-$Ep-198e $7:39:88 LOCK SRCIHANDLE. MARS 3 a dy 
Use $GETSYI to get node name in CTRL/T. | 
Use SBRKTHRU instead of SBRDCST. 
v03-007 PCG0006 Peter George 18-Nov-1983 
Finish making WAIT command CTRL/Y interruptable. 
v03-006 PCG0005S Peter George 8-Sep-1983 
Correctly align the SP when popping a call frame of the stack. 
v03-005 PCG0004 Peter George 15-Sep-1983 
Recognize two versions of (LIS spawn data structure. 


v03-004 PCG0003 Peter George 18-Aug-1983 


P 

Make WAIT command CTRL/Y interruptable. 
v03-003 PCG0002 Peter George 26-Jun-1983 

Bring LIBSSPAWN callback up to speed with SPAWN command. 

Use event flags more intelligently. 

Restructure logical name callbacks to use new system services. 


PCG0001 Peter George 28-Dec-1982 
Add DCLSDSBCONTRLY routine. 


V03-001 PHLO045 Peter H,. i fenes 14-Apr-1982 
Control Y rundown of privileged images een eyes until 
command dispatching to allow CONTINUE, SPAWN, and 
ATTACH commands. 


v03-002 


Set image privileges to process ag hy saving the 
image privileges to be restored by CONT NuE 
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53 53 45 43 4F 52 50 24 4D 4E 4C 00° 


PREVIOUS MODE SUPERVISOR: 
THIS IS RESERVED FOR COMMAND PROCESSING ERRORS. 


DCLSCHANGE MODE: : ;HANDLE CHANGE MODE TO SUPERVISOR 


03 08 AE 18 €0 BBS #PSLSV_CURMOD,8(SP),10$ :BR IF CHANGE MODE FROM USER 


: CHANGE MODE FROM SUPER 
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FFEC' 31 BRW DCLSRESTART peee NY] tee 
: BUILD A FRAME THAT LOOKS LIKE AN AST FRAME, EXCEPT THAT IN PLACE OF 
14 ; THE SAVE R1 IS THE CHANGE MODE ARGUMENT, AND ZERO FOR SAVED RO AND 
14 : THE AST ARGUMENT. 
14 : 
FFE9" 30 0014 10$:  BSBW  CLISGET_PRC :GET ADDRESS OF CLI PROCESS WORK AREA 
ze 7C 0017 CLRQ = = (SP) ‘DUMMY SAVED RO AND AST ARGUMENT 
05 DD 0019 PUSHL # ‘NUMBER OF ARGUMENTS IN AST ROUTINE 
32°AF §66€ ~ «=O FAsé0018 5 CALLG (SP),8*30$ [CREATE A CALL FRAME IN SUPER 
5E 16 CO 1F 6 ADDL #<4ed>,SP :CLEAR ARGUMENTS AND ARG COUNT 
50 D 2 ? TSTL «6OR S INTERNAL ERROR? 
08 14 4 8 BGTR 208 ; F NO 
50 cE 6 MNEGL RO,RO SMAKE POSITIVE 
50 £000 BF A 9 9 BISW #*XE000,R0 SINCLUDE SUBSYSTEM AND PRIVATE 
0 04 cs f MULL #4,R0 *SCALE TO PROPER PLACE 
2 ‘ 20$: REI sRETURN TO USER 
0000 g 4 308: .WORD 0 SREGISTERS SAVED BY RESULT PARSER 
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ved CHANGE MODE TO SUPERVISOR HANDLER 12786-1382 99:09:09 LOLLY SRCIHANDLEMARS3 . 

¢ 18 > ~SBTTL CHANGE MODE TO SUPERVISOR HANDLER 

c p ; DCLSCHANGE_MODE = CHANGE MODE TO SUPERVISOR HANDLER 

¢ : : THIS ROUTINE IS ENTERED WHEN A CHANGE MODE TO SUPERVISOR INSTRUCTION IS 

c 3; EXECTED BY THE RESULT PARSER IN USER MODE OR THE CLI PROPER IN SUPER MODE. 

; 5 : INPUTS: 

¢ 5 : (SP) = CHANGE MODE ARGUMENT 

¢ 8: 4(SP) = PC AFTER CHANGE MODE INSTRUCTION 

¢ ; ; 8(SP) = PSL OF CHANGE MODE INSTRUCTION 

¢ 1 : OUTPUTS: 

¢ 4 : A CHECK IS MADE TO SEE IF THE 

c % ; PREVIOUS MODE WAS USER OR SUPERVISOR. 

¢ 36 : PREVIOUS MODE USER: 

C 138: THIS IS REQUEST FOR SERVICE FROM THE RUNNING IMAGE. 

€ 139; THE REQUEST IS DECODED AND PROCESSED, THE RETURN 

¢ ; 1S MADE TO THE POINT OF CALL WITH STATUS OF REQUEST. 

C : 

C F 

C ; 

C 

C 

C 

¢ 

1 

1 

1 

1 

1 

1 

4 

4 

4 


n 8 
D CONTROL/Y AST ROUTINES 
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vee CHANGE MODE TO SUPERVISOR HANDLER 12736 =] 3be $3:39:38 YOCL SRCIHANDLE MAR; 3 ’ 3) 
4 175 CASE  12(AP),= ;DECODE USER REQUEST 
4 126 LIMIT = #CLISK_PAUSE,- :LOW LIMIT OF REQUEST 
4 WW TYPE = W,<- [CASE ON 16 BIT VALUE 
4 178 PAUSE,=- SREQUEST IS PAUSE 
6 DEFLOC,=- : DEFINE IN LOCAL TABLE 
034 180 DEFGBL.- : DEFINE IN GLOBAL TABLE 
034 181 CHAIN, = SIMAGE TO LATER INVOKE 
00 4 4 2 COMMAND, = :COMMAND LINE TO LATER PROCESS 
034 1 CREALOG.- [CREATE PROCESS LOGICAL NAME 
0034 184 DELELOG,- [DELETE PROCESS LOGICAL NAME 
034 185 DISACTRLY,= ‘DISABLE CONTROL Y 
034 186 ENABCTRLY,= [RE-ENABLE CONTROL Y 
034 1 GETSYM, = : GET A SYMBOL VALUE 
0034 188 DELELCL,- : DELETE A LOCAL SY 
0034 189 DELEGBL,- + DELETE A GLOBAL SYMBOL 
0034 190 DISAOOB,- ‘DISABLE OUT-OF-BAND CHARACTER(S) 
0034 191 ENABOOB,- ‘RE-ENABLE OUT-OF-BAND CHARACTER(S) 
0034 198 SPAWN, = ‘SPAWN A SUBPROCESS 
0034 19 ATTACH, = SATTACH TO A PROCESS 
$089 198 . ; 
50 00038822 8F DO 0059 196 INVREQ: MOVL #CLIS_INVREQTYP,RO sSET ERROR CODE 
0% Boer 198 im, ' 
50 08 AB DO 0061 199 PAUSE: MOVL PRC_L_INPRAB(R11),RO | ;GET PROCESS INPUT RAB 
EF 18 AO 02 €1 0065 200 BBC #DEVS0_TRM,RABSL_CTX(RO).INVREQ ;CAN'T PAUSE IF NOT INTERACTIVE 
5C 08 AD DO 006A 201 MOVL SF$L_SAVE_AP(FP)-AP ‘POP CALL FRAM 
OE EF 006 0¢ EXTZV #SFSU_STACKOFFS,- ‘GET SP ALIGNMENT 
02 0070 20 #SFSS"STACKOFFS,- : 
50 06 AD 0071 204 FSW_SAVE_MASK(FP),RO 
5D OC AD 09 0074 205 MOVL SFSLTSAVE-FP(FP) FP : 
SE 14 CO 0078 206 ADDL  #5*47SP :POP CALL FRAME OFF THE STACK 
5E 50 CO 007B 207 ADDL _RO,S SREALIGN THE STACK 
0420 31 OO7E 208 BRW DCLSSCNTRLY ‘SIMULATE A CONTROL/Y 
0081 209 
0081 10 ; 
0081 211 : DEFINE A SYMBOL FOR THE PROCESS 
0081 \¢ : 
0081 21 
0081 ei4 .ENABL LSB 
55 38 AB 9E $081 16 DEFLOC: MOVAB PRC_Q_LOCAL(R11),R5 ;SET ADDRESS OF THE SYMBOL TABLE 
04 11 0085 217 BRB 10$ ; 
55 28 AB 9E 0087 18 DEFGBL: MOVAB PRC Q_GLOBAL (R11) .RS [SET ADDRESS OF PROPER TABLE 
53 04 a9) 7D 19 10$: MOVQ  4(RO)TR 'SET SYMBOL NAME DESCRIPTOR 
53 53 3C O08F 30 MOVZWL R3.R3 :GET LENGTH OF SYMBOL NAME 
098 1 IFNORD R3.(R4), ACCVIO SERROR IF CANNOT READ I 
51 OC A9 7D 009 ‘ MOV —s_: 12(R9) , RI [SET SYMBOL VALUE DESCRIPTOR 
51 51 3¢ 09C MOVZWL R1,R1 :GET LENGTH OF VALU 
06 13 009F 4 Bea. 208 SIF NULL VALUE, SKIP PROBE 
OA1 5 IFNORD R1,(R2),ACCVIO TERROR IF CANNOT IT 
50 99 DO O0A7 6 20$:  MOVL &#SYM K STRING.RO [SET TYPE OF CLI SYMBOL 
FF53° 30 OOAA ? BSBW DCLSALCOCSYMABR [CREATE THE SY 
04 OAD : RET TALL DONE a 
OAE 0 .DSABL LSB 
OOAE 231 
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v04-002 ANGE MODE TO SUPERVISOR HANDLER 14-SEP-1984 DCL.SRCJHANDLE .MAR; 3 
50 0000'8F sf oar ACCVIO: MOVZWL #SS$_ACCVIO,RO ;SIGNAL ACCESS VIOLATION 
4 B RET 
Oec | 536 
0B4 : Get a symbol's value 
0B4 $ ; 
084 8 ; WARNING: 
0B4 9 ; The returned value string MUST be copied from the area pointed to by 
0084 40 ; the descriptor to a user-defined non-volitile area before the callback 
00B4 41 ; facility is used again. The callback facility may overwrite the area 
0084 tg ; which it uses to build the returned value string. 
B4 44 GETSYM: 
SA 04 AB 00 00B4 45 MOVL PRC_L_SAVFP(R11), R10 ;Get address of work area descriptor. 
51 04 A9 7D 00B8 46 ova 4(R9)> RI :Get symbol name to search for. 
51 51 3C Q0BC 47 MOVZWL R1,R% :Get low order word 
OOBF 48 IFNORD R1,(R2),ACCVIO zsError if cannot read it 
FF38" 30 O00C5S 249 BSBW © DCLSSEARCH :Search for it. 
7D 50 =6—E9)=—(00C8 50 BLBC RO, NOSUCHSYM :Check for symbol not found. 
03 Ao 654) «=6F6 SCOO0CB 51 CVTILB) =-R4, «-3(RI) Return local/global table indicator. 
10 AD F486 CA 00 OOCF $26 MOVL WRK_L_EXPANDPTR(R10), 16(R9) ;Return address of string. 
52 05 «0005 $3 TSTL = R2 :Check for binary valued symbol. 
1A =613)= «0007 54 BEQL 50$ ;sBranch if binary valued symbol. 
F892 CA 9F O0D9 $22 PUSHAB WRK_G_BUFFER+WRK_C_CMDBUFSIZ(R10) ;Compute number of characters 
50 8& F486 CA (C3 O0DD 56 SUBL3 WRKL-EXPANDPTR(R10), (SP)+, RO ;remaining in expansion buffer. 
50 51 D1 O0E3 $20 CMPL R1, RO zEnough space for symbol string value? 
¢ 14 Q0E6 58 BGTR 90$ sBranch if not oqo space. 
OC Ad 1 DO OO0E8 259 MOVL R1, 12(R9) sReturn Length of string syabets 
1089 62 51 28 QOEC 260 MOYCS R11, (R2), a16(R9) :Copy string to expansion buffer. 
¢° 11 OOF1 261 BRB 70$ 3Go to common exit code. 
1 05 OOF3 $06 50$: TSTL R1 :Check for a negative number. 
O¢ 18 OOFS 26 BGEQ 55$ z31f not, skip extra negative stuff. 
F486 DA 2D) =—90 =«(O0F7? = 264 MOVB #*A/-/, @WRK_L_EXPANDPTR(R10) ;for negative numbers, put a 
F486 CA D6 gore 265 INCL WRK_L_EXPANDPTR(R10) sleading minus sign in ASCII string, 
s1.6CUSTCOE SCG 66 MNEGL Ri, RT yand negate value before converting. 
1A 10 0103 267 55$: BSBB. 100s “Call binary to #Si!1 converter. 
OC AD «F486 CA 10 A9 C3 0165 68 SUBL3 16(R9), WRK_L_EXPANDPTR(R10), = ;Compute number of bytes in 
010D 69 12(R9) zsconverted value str a 
F486 CA 10 AD 00 8398 70 MOVL 16(R9), WRK_L_EXPANDPTR(RiO) ;Restore expansion buf. ptr. 
50 01 00 O11 71 70$: MOVL #1, RO eS tone successful lookup. 
04 3118 % RET sReturn to caller. 
git? 274 ; Return expansion buffer too small status. 
50 00038018 8F 00 O17 2 $0$:  MOVL #CLIS_BUFOVF, RO 
me. Repo 
O11F 79 ; Recursive routine to output the ASCII number, high order digits first 
Bite + 3 without any leading spaces or zeras. 
52 bs O11F : 100$: CLRL 2 :Clear high part of dividend. 
oe |; ie A 121 EDIV #106, R1, RI, R2 Isolate next digit. : 
ae 0 Ci 0126 4 ADDL3 #*A/0/, R2, -(SP) Convert digit to ASCII and save it. 
1 0 12A 5 TSTL Ri zAny more digits to convert? 
02 #1 12C § BEQL 130$ sBranch if no more digits. 
EF 10 01 3 : BSBB 100$ sEise convert next digit, 
F892 CA OF 01 8 130$:  PUSHAB WRK_G_BUFFER+WRK_C_CMDBUFSIZ(R10) ;Is the expansion buffer 


cr 


ENABLE OR DISABLE PROCESSING OF CONTROL Y OR OUT-OF-BAND AST'S 


DISACTRLY: 
CL3 
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Vou-002 CHANGE MODE TO SUPERVISOR HANDLER 14-SEP- oat $33 tock SRC JHANDLE .MAR; 3 ° (3) ' 
F486 CA BE D1 0134 89 CMPL (SP )*. WRK_L_EXPANDPTR(R10) ; full? 
C 1B 0139 90 BLEQU 90% Branch h if expansion buffer full. 
1 BED 138 91 POPL R1 et next character digit. 
F486 DA «51 90s«O01 3¢ MOVB =R1, @WRK_L EXPANDPTRCRIOS ;Put it in the expansion buffer. 
F486 CA 3 1? 9 pect WRK_L_EXPARDPTR(R10) :Increment expansion buffer pointer. 
14 95 
14 $7 NOSUCHSYM: 
50 00038140 8F pO 014 MOVL #CLIS_UNDSYM, RO :Signal symbol not found and 
04 Ver 38 RET treturn error to caller. 
13 0; 
130 1 ; Delete a local/global symbol. 
138 
15 -ENABL LSB 
150 DELELCL: 
50 38 AB 7E 0150 MOVAQ PRC_Q_LOCAL(R11), RO Setup address of the 
06 11 0154 BRB 10$ ‘proper symbol table. 
156 DELEGBL: 
50 28 AB /7E 156 MOVAQ PRC_Q_GLOBAL(R11), RO 
51 04 A9 7D O15A 10$: ova 4(R9)> R1 Get symbol name. 
we. ee Bee MOVZWL R1,R1 :Get low order Length 
161 IFNORD R1,(R2),ACCVIO2 sError if cannot read it 
FE96" 30 0167 BSBW DCLSSEARCHT :Search for the symbol. 
DB 50 E—9 OQ16A BLBC RO, NOSUCHSYM :Branch if symbol not found. 
01 OAAS 91 16D CMPB SYM_B_TYPE(R3), = :Check for a permanent 
171 #SYR_R_PERM ; symbol (can't delete them). 
0B 13 «0171 BEQL 80$ Branch if peresnees symbol. 
173 DISABLE Protect from CTRL/Y ASTs. 
FE84" 30 0179 BSBW DCLSDEALLOCSYM :Delete the symbol. | 
17C ENABLE tRestore CTRL/Y ASTs. 
50 O01 DO OI7E 80$: MOVL #1, RO :Return a successful status 
04 0181 RET ito the caller. 
182 -DSABL LSB 
182 | 
13s ACCVIO2: 
FF29 31 Se BRW ACCVIO sSIGNAL ACCESS VIOLATION 
185 
185 
183 
51 00B4 CB 02000000 8F cB 133 BI #PRC_M_CTRLY,PRC_L_OUTOFBAND(R11),R1 ;Disable CTRL/Y. 
069F 18F BSB ect SRESET008 
11 192 BRB EXIT 
194 ENABCTRLY: 
51 0084 CB 02000000 8F 68 194 BISL3 #PRC_M_CTR ae PRC_L_OUTOFBAND(R11),R1 ;Re-enable CTRL/Y. 
0690 0 019€ BSBW oct SRESE 100 
11 a BRB M_EXIT 
1A DISAOOB: spteable out-of-band character(s). 
1¢ 610 OA BSBB tiwe 4 Rect vot legal out-of-band mask. 
51 0084 CB 04 Ad 8 1A BICL3 4(R9),PRC_L ouToFBAND(R1 i) 8 :Set mask for reset routine 
0682 1AC BSBW DCLS$RESETOOS :Disable appropriate oob AST's 
| er 4 BRB NORM_EXIT 
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i, 2 CHANGE DE TO SUPERVISOR HANDLER 14-S et} 93:39:38 YOCL SRCIHANDLE_ MARS 3 wae ) 
46 ENABOOB: sRe-enable out-of-band character(s). 
oF 18 23 BSB8B co ypes: i Sheck for legal out-of-band mask. 
51 0084 (CB O4 A § BISL3 4(R9),PRC_L_OUTOFBAND(R11),R sSet mask for reset routine 
0674 30 BSBW DCLSRESETOOS :Disable appropriate oob AST's 
NORM_EXIT: 
50. «(O01 dO #1,R0 ;SET SUCCESS 
ERR_EXIT: 
04 RET 


CHECKMASK: 
08 AY 0084 CB 00 MOVL 


04 AD FDEFFFFF 8F 03 


-OUTOFBAND(R11), = ;Return current out-of-band 
scharacter(s) enable bits. 


BITL e Check for any illegal bits set. 


01 


4 $ sIf no illegal bits are set, return 
50 O000388CA 8&F BY 


RSB sto caller and finish processing. 
10$: MOVL #CLIS_BADCTLMSK, RO sOtherwise, quit right now returning 
RET :an appropriate error status. 


q ; CURRENT IMAGE COMPLETES 


5 
; 
5 
6 
6 
6 
6 
6 
6 
6 
6 
$e 
4! ; ACCEPT IMAGE NAME OR COMMAND LINE TO BE EXECUTED AFTER 
7 
7 
7 
7 
7? 
7? 
7 
8 
8 
8 
8 
9 


-ENABL LSB 
5 CHAIN: ;ACCEPT IMAGE NAME FOR LATER 
55 02 9A MOVZBL #PRC_M_CHAIN,RS 7SET THE BIT MASK FOR CHAIN'S 
56 0008 CB 7E MOVAQ PRC_G_TMAGENAME(R11),R6 ; AND GET POINTER TO THE DESCRIPTOR 
08 (11 BRB 10$ 760 JOIN THE COMMON CODE 
0 COMMAND: ;ACCEPT COMMAND LINE FOR LATER 
55 01 9A MOVZBL #PRC_M_CMD,RS 7SET THE BIT MASK FOR COMMAND LINE'S 
56 0060 CB 7E MOVAQ PRC_G_COMMAND(R11),R6  ; AND GET POINTER TO THE DESCRIPTOR 
10$:  IFNORD 8(R9)7a12(R9),ACCVIO2 ERROR IF CANNOT READ THE STRING 
OOAF CB 55 BICB 5,PRC_B FLAGS2(R11) § ; TURN THE FEATURE OFF INITIALLY 
Vw  8(R9),2(R6) TSET NEW SIZE FROM CALLING DESC 
BSBW ALLDEACMD [G0 DEALLOCATE/RE-ALLOCATE SPACE 
BLBC = RO, ERR_EXIT TEXIT NOW IF FAILURE... 
TSTL = R11 SANY NEW SIZE? 
BEQL NORM EXIT ;NOPE, GO SET SUCCESS AND EXIT 
BISB R5,PRC_B_FLAGS2(R11) YEP, SO TURN (BACK) ON THE FEATURE 
mOVa =- R17, (ROY ;LOAD DESCRIPTOR 
BBC_ = #PRC_ V_CHAIN,RS,20$ =: IF IMAGE CHAINING, APPEND $ TO IT 
MOVB =: #*A S$" (R2) + :SO0 THAT IT CAN BE TREATED AS FOREIGN 
MOVC 8(R9) ,812(R9), (R2) [MOVE IN THE STRING 
CLRB ZAND ENSURE IT'S TERMINATED 
8 NORM_EXIT 3SET SUCCESS AND EXIT 


BR 
-DSABL LSB 


CREATE A PROCESS LOGICAL NAME 


HAND = CONDIT 
vou-b62 CHANGE 


2 
z 


Q 
ciguTmon/y ast noulinés  15-sep-toge 23:50:35, y 


7E 04 CLRL 0 =( SP) 
58 SE 00 MOVL = SP, RB 
57 1009 D MOVL SL_ITMLST(RO) ,R7 
3 sort fut 
3 7¢ CLRQ 30 = (SP) 
43 oc ad = 70 MOVQ CLI$Q_VALDESC(R9) ,-(SP) 
0 Ag ge ) MOVW  #LNMS“STRING, 2(SPS 
—E 0D MOVL JR 
; BISL § #LNMSM_CRELOG, (RB) 
7E 14a9 7 10$: mova J$0_TABDESC(R9) ,~ (SP) 
Oo 1 BNEQ 
51 DBD CF 9€ MOVAB LNMSPROCESS,R1 
50 81 9A MOVZBL (R1)+,RO 
6 50 7D mova —s- RO, (SP) 
00 (11 a RB 208 
:~—sé@BICL «Ss @LNMSM_CRELOG, (RB) 
20 a9 «OD TSTL ISL_ATTR(RO) 
08 3 $5 7 


BEQL 
IFNORD #4,@CLISL_ATTR(RY) 


i at at a MRAM MRRMUMMAMAUAMAAUAUAUAAAMAMAMHMHMMHHHnnneee ee 


BPE FAWN NAIA PNPONPONPININININDS 2 2 OO OO OS OO 


MEW OC ODNAUNE WN 9 OD NA NEW 9 OD NOA UNE WH "OOD NOUE Ww 
™ . 
So 
ee 


DOO OOO O90 SII DP PAD AD TB BB BE EWI II Innonononn) & 
MMA DS NMOS NLM OOO LS & 9 9 SIM OND NOOO PVE ANS ODOOPUMO POOwW— 


§ ACCVIO3 
68 2089 00 0 MOVL aCLISL_ATTR(R9), (RB) 
02 oppo 0 30$:  PUSHL #PSLSC_SUPER 
51 SE 00 0 MOVL  SP,R1 
0 SCRELNM_S LOGNAM=CLI$Q_NAMDESC(R9),- 
0 ACMODE=(R1),- 
0 TABNAM=4 (R15 ,- 
0 ITMLST=(R7) ,- 
ATTR=(RB) 
SE 04 A8 9E MOVAB 4(R8),SP 
04 0 RET 
1 pt 
7E 14649 7D 10$: Mmova GL 1$Q_TABDESC(R9) ,~(SP) 
0B 12 BNEQ 208 
51 FO7D CF 9E MOVAB LNMSPROCESS,R1 
gi 9A 444 MOVZBL (R1)+,R0 
6 50 7D 4 MOV RO, (SP) 
ge DD 446 20$:  PUSHL #PSLS$C_SUPER 
51 0 44 VL PLRI 
52 A : 44 MOVAQ CL{$Q_NAMDESC(R9) .R2 
6¢ D 44 TSTL = (RR) 
1 450 BNEG 308 
04 A2 D 451 TSTL  4(R2) 
9 12 43 BNEQ 308 
D4 433 CLRL aR 
9€ 455 308 SDELLNM_S TABNAM=4(R1),- 
96 4 ; LOGNAN= (R2) ,= 
3E 4 ACMODE=(R1) 
SE Oc cO O2aC 4 § ADDL #3*4,SP 


AX/VMS Macro Vv04-00 
DCL.SRCJHANDLE .MAR; 3 


sALLOCATE ATTRIBUTE LONGWORD 
;SAVE ADDRESS OF STACK 


a bist SPECIFIED? 
HEN SKIP 

ATE AN ITEM LIST 
U1V 
EM 


a & 


E 
HE EQ NAME DESCR 
HE IT 

DDORES 
RELOG 

T 


E THE 


$0 
AT 
; ABL 
BRANCH IF $Ps 


sCLEAR CRELOG ATTRIBUTE 
s WERE ere ieutes SPECIFIED 


[NO, THEN BRANCH 
[CHECK ACCESS TO ATTRIBUTES 
[USE THOSE ATTRIBUTES 


SET ACCESS MODE 
SET ADDRESS OF DATA 


CREATE THE REQUESTED NAME 


:POP THE ITEM LIST 
RETURN STATUS OF SERVICE DIRECTLY 


sDELETE PROCESS LOGICAL NAME 
;SAVE THE TABLE NAME 


[BRANCH IF SPECIFIED 
[SET DEFAULT TABLE NAME 


3NO, T 
:DEASSIGN/ALL 


sDEASSIGN LOGICAL NAME EQUIVALENCE 


RESTORE THE STATCK 


9 
EniQAR THESE MNP CEONTRONLY ASTGROUTINES  Y5nSER~19RG GH:H0:3S 


04 O2AF 460 RET: RET 
BO 461 
8 4 § ACCVIO3: 
FOFB 31 0280 46 BRW ACCVIO ;REPORT 
B3 464 
B 465 ; 
8 466 : SPAWN A SUBPROCESS 
Bsa ENABL LSB 
51 0006 8F ; B3 469 SPAWN: MOVZWL SPUN C_LENGTH,R1 
FD45° BB 470 BSBW DcLSA ACLBYNMEM 
F1 E BB (477 BLBC RET 
56 BO BE Arg MOVL Re 
66 0006 8F 00 61 ¢ Ci 47 MOVES Rt) ,#0,#SPWN_C_LENGTH, (R6) 
04A6 51 2B C9 474 MOVW Rt. >SPWN_W_SIZE(RB) 
10 a9 8B CD (47 TSTW © CLISQ_CMDSTR(R9) 
10 : 02D a38 BEQL bg 
6 D2 478 1FNORD cLisa CMDSTR(RO), 
D2 479 L1$G CmDsTR+G (9) ,ACCVIO3 
10 a9 «7D. sCOO2DA 480 mova cLisa CHD (RO), = 
0 Ab 9gop 481 PWN_@_C ReROS 
206 BG 0 DF 48¢ CLRW SPUN Q ~EMDSTRSO CRO) 
1809 8B Es 484 10$: STW 1$Q_INPUT(R9) 
15 eS § —E5 485 BEQL Shs 
O2E7 486 SETBIT #SPWN_V INPUT SPWN_W_FLAGS (R6) 
O2EC 487 IFNORD cLisae INP 
O2EC 488 L1$d Input 94.89), ACCVIO3 
20 A6 «618: AD) O7D SC2F4 e489 mova att INPUT R9) «SPUN. Q_INPUT(R6); 
22 A6- BG 8 4 o2y CLRW SPWN_G_ MpoTeack 
20 a9 «BS «(O2FC | 492 208: TSTW cL 180_ OUTPUT (RY) 
15 13 ocr 49 BEQL 
0301 494 SETBIT #SPWN_V QuTPUT SPWN_W_FLAGS(R6) 
0306 495 1FNORD cLisa “OOTP U )- 
0306 496 1$0 OUTPUTSG (A), ACCV103 
20 A9 «67D «2(030E «= 497 mova orig GuTP 
28 Ab 0311 498 SPWN_G “BUTPUT ER as 
2A AG BG 0 13 499 CLRW = SPWNQ"OUTPUT+2(R6) 
28 Ads 0 16 501 30s: TSTW cL 180_ PRCNAM(R9) 
15 13 0319 308 BEQL 40$ 
0 18 0 SETBIT #sPy N_V PRCNAM SPUN. W_FLAGS(R6) 
4 1FNORD cL Isa -PRCNAM 
0 05 cls $0 PRCNARe 4 (49) ,ACCVIO3 
28 a9 = 7D 06 mova ery Q PRCN 
18 A6 B 50 SPWN_G_PRCN NANCROS 
1A A6 BG n 308 CLRW = SPWNQ"PRCNAM+2(R6) 
39 A995 10 40$:  TSTB $B_VERSION(R9) 
5D 13 11 BEQL 
3c Ad 83 1 TSTW ~ PROMPT (R9) 
1B 8 51 BEQL 
A 514 SETBIT spy V PROMPT SPWN_W_FLAGS(R6) 
F 515 IFNORD att -PROMP ),- 
F 16 CLISG_ PROMPT SGCRD) , ACCVIO4 
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DCL.SRCJHANDLE .MAR; 3 
RETURN STATUS OF SERVICE DIRECTLY 


ACCESS VIOLATION 


;SET LENGTH TO ALLOCATE 
sALLOCATE ST cease FOR SPAWN BLOCK 
Aah ae ERROR DETECTED 


3 ZERO THE BLOCK (WITHOUT DESTROYING 
sSET SIZE OF BLOCK 


: COMMAND STRING PRESENT? 
;BRANCH IF NOT 
3 CHECK ACCESS TO COMMAND STRING 


:PASS CMDSTR DESCRIPTOR 


3 INPUT os PRESENT? 


BRANCH I 
s INDICATE INPUT SPECIFIED 
; CHECK ACCESS TO INPUT STRING 


;PASS INPUT FILESPEC 


OUTPUT FILESPEC PRESENT? 
ANCH_IF NOT 


3BR 
Hint gh OUTPUT SPECIFIED 
CHECK ACCESS TO OUTPUT STRING 


a OUTPUT FILESPEC 


sPROCESS NAME PRESENT? 
RANCH IF NOT 


INDICATE PRCNAM SPECIFIED 
CHECK ACCESS TO PROCESS NAME 


{PASS PROCESS NAME 


s1F VERSION 0 

: THEN SKIP 

PROMPT STRING PRESENT? 
BRANCH IF NOT 

: INDICATE PROMPT SPECIFIED 
CHECK ACCESS TO PROMPT 


= 


= 
~ 


ONT POMVTIOM® 


NAMA 


WNW AAAI AIA RPONIPUPNININUN =O 


WN 9 OO NAME WN SO OD NA UNE WN 9 ODNAU EWN" OODNOAUS U--"OOO~n 


PP OO OOM@Mo 
Qn nr TT 


& 


PUPPY DPV DV DPVDVDVSVDPVSVSVLUSVSUSVSUSVOSUSVSUSISU SVS SUAS IASU SUSU SILI STASIS SI SUSIASISIOSISIOSISIOSISISIOSIOSIOSIOISIS 0d 
PAAQPMMAAMMMIIII EE BPEL LLL EE 


ISSERESE 


Wwrn—O 


OU HHH MMOH WINVOL ™PUIO 


C 
C 
D 
D 
D 
D 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
F 
F 
F 


9 
D CONTROL/Y AST rout Ines 
PERVISOR HANDLER 


ADDB3 
movCc3 


-DSABL 


ATTACH: CLRL 
MOVL 


BSBW 
RET 


15-SEP- 

12-8Ep- 
T( 

ROMPTLEN 


SPWN_G-PROMPT(R6) 
ch $Q_CLI(R9) 
#SPUN_ y cL SPWN_W_FLAGS (R6) 
cLisae 1(R9) ,- 

cL $0 CL “EL each). ACCVIO4 
er ise 


SPWN_Q_CLI(R6) 
SPWN_G a raetTs 
sha%e- TABLE (R9) 


#SPWN_V_TABLE, SPWN_W_FLAGS(R6) 
ciisa ~YEBLEIRO) 

acLisa TABLE (ROS; ACCVI04 
CLI$Q_TABLE 


SP N_G_ TTY the) 


AX/VMS Macro v04-00 
DCL.SRCJHANDLE .MAR; 3 


< 19:67:08 


0 
SPUN. Q_TABLE(R6); :PASS CLI TABLE NAME 


Page 11 


3GET PROMPT 


sth Me PRESENT 
NCH IF NO 


BRA T 
s INDICATE CLI TABLE SPECIFIED 
; CHECK ACCESS TO CLI TABLE STRING 


ACCVIO :REPORT ACCESS VIOLATION 
#CLISV_NOWAIT,CLISB_FLAGS(R9),71$ :BRANCH IF FLAG SET 
#SPUN 0 WAIT, SPUN _W7FLAGS(R6) SINDICATE IF WE SHOULD WAIT | 
#CLIS0_ROCLISYM CCISB_FLAGS(R9). 72$ [BRANCH IF SET 
PWN_0_CLISYM, SPWN_W-FLAGS(R6) + INDICATE 10 COPY CLI SYMBOL | 
CLIS0_ROKEYPAD, CLISB-FLAGS(R9) .73$ ‘BRANCH IF FLAG SET | 
#SPWN_0_KEYPAD, SPWN_W-FLAGS ( S INDICATE 19, copy KEYPAD STA 
#CLISQ_RNOLOGNAM, CLISB_FLAGS(R9) .74$ SBRANCH IF F T 
N_0_LOGNAM, SPWN_WFLAGS( + INDICATE 10° Copy LOGNAME S 
#CLISO_ROTIFY,CLISB-FCAGS(R9) ,75$ SBRANCH IF FLAG CLEAR 
4 9” giliry ei W_FLAGS( s INDICATE TO NOTIFY 
#cCLisd TROL,CLI$6_FLAGS(R9),80$ | :BRANCH IF FLAG SET 
et atecee couN RL BMPT CTRL (R6) tSeT DEFAULT PROMPT CONTROL — 
CLISL ~ASTADR(R9) .SPWN_L_ASTADR (RG) sCOPY AST ADDRESS 
CLISLASTPRM(R9) . SPWN-L ASTPRM(R6) [COPY AST PARAMETER 
CLISB-EFN(R9) ,SPWN_B_EFA(R6) [COPY EVENT FLAG # 
CLISLLSTSTATUS(R9T,SPWN_L_STSADR(R6)  :RECEIVES FINAL STATUS 
DCLSSPAWN2 7SPAWN THE SUBPROCESS 
SPUN_L MSUSPID(R6), CLISL_OUTPID(R9) [PASS SUBPROCESS PID (IN CAS | 


LSB 


MARK 
iGeT P 
ATTACH T 


; ATTACH THE TERMINAL TO ANOTHER PROCESS (ESSENTIALLY A CO-ROUTINE CALL) 


of SS NAME SUPPLIED 
. ari ioe PROCESS 


PR 
OF D 
O SPECIFIED PROCESS 


H 9 
HA = CONDITION AND CONTROL/Y AST ROUTINES 15-SEP-1984 23:50:35 VAX/VMS Macro V04-00 Page 1 
Yoeebb2 ALLOCATE CHAIN Stine STORAGE 14-5 oat} 93:39:38 YOCL. SRCIMANDLE E.MAR;3 ve i 
i 2 - .SBTTL ALLOCATE CHAIN STRING STORAGE 
F9 7 ; DCLSALLDEACMD = DEALLOCATE/RE-ALLOCATE CHAIN/COMMAND STRING STORAGE 
i ii + INPUTS: 
F9 R6 => DESC W/ NEW SIZE @ 2(R6) 
F § : OUTPUTS: 
F 5: RO = STATUS 
F : : Ri = NEW SIZE 
F : Re => NEW BLOCK 
F 8 : R3,R4 = UNDEFINED 
F9 0 BCLSALLDEACMD: : ;DEALLOCATE/RE~ALLOCATE CHAIN/COMMAND 
F9 «4591 DISABLE LE C AST’ 
51 66 3 FF 36 MOVZWL  (R6),R1 GET CURRENT ALLOCATED SIZE 
402 59 BEQL 108 E 
50 O4A 0 0404 59% MOVL  4(R6),RO ‘SOME, GET POINTER TO BLOCK TO RETURN 
FBFS5* 30 408 95 BSBW DCLSDEADYNMEM ; AND 60 RETU nN IT 
B4 04 % CLRW 3s (RO) THEN Ati oP 
50 01 DO 0400 597 108 MOVL #1,RO ;PRESET SUCCESS STAT 
51 02 A6 ¢ 10 598 MOVZWL g(R6) RI [GET NEW DESCRIPTOR'S SIZE 
16 «1 0414 99 BEQL 0$ SZERO LENGTH, JUST EXIT STATUS=SUCCESS 
66 4 16 600 CLRL —._-« (R6) REAL LENGTH, UT DON'T KEEP SAYING SO 
50 0003883A BF DO 0418 601 MOVL #CLI$_ILLVAL,RO SPRE-SET ERROR CODE 
0100 8F 1 Bl O41F 60 CMPW sR, #WRK_C_INPBUFSIZ :DOES TEXT FIT WITH ROOM TO SPARE? 
1A 04246 60 BGTRU 208 : BRANCH IF NOT 
51 02 6 604 ADDL #2,R1 [ADD IN ROOM FOR °$' + TRAILING EOL 
FBD4' 30 0429 605 BSBW DCLSALLDYNMEM [GET THE DYNAMIC MEMORY SPACE 
04 C 606 20$: ENABLE TENABLE CONTROL/Y&C 
05 042— 60 RSB TEXIT 


a Ba 9 | 
HAND -¢ ION AND CONTROL/Y AST Rout INES 15-§ P=1984 23:50: AX/VMS Macro v04-00 Page 13 
Riven CONTROL Y AST HANDLER yaa sEp 88s TFiboi0s PARC VES Hacre yOu=00, - ib 
f 609 : .SBTTL CONTROL Y AST HANDLER | 
r ei : DCLSCONTRLY = CONTROL Y AST HANDLER 
F e8 : THIS ROUTINE IS CALLED WHEN A CONTROL Y AST OCCURS WHILE RUNNING IN USER 
i 614 : OR SUPERVISOR MODE. 
f 616 : INPUTS: 
f 18 ; AP = ADDRESS OF AST ARGUMENT LIST. | 
r 6 p : OUTPUTS: | 
BR : ; THE CONTROL Y AST IS RE-ENABLED AND A CHECK IS MADE TO SEE IF THE | 
f 6 3: PREVIOUS MODE WAS USER OR SUPERVISOR. 
F é 5: PREVIOUS MODE USER: 
F 6 > : A COMMAND WORK AREA Is ALLOCATED ON THE STACK, THE PROCESS 
F 628; SAVED ARGUMENT AND FRAME POINTERS ARE MOVED TO THE COMMAND 
F 629: AREA, THE CURRENT ARGUMENT AND FRAME POINTERS ARE SAVED 
F 630; NT HE PROCESS SAVE AREA, AST'S ARE ENABLED, AND THE COMMAND 
F 631 ; INTERPRETER RESTART POINT IS JUMPED TO. 
i o38 ; PREVIOUS MODE SUPERVISOR: | 
F gs : IF CONTROL Y AST'S ARE CURRENTLY SOFTWARE DISABLED, THEN THE 
F 636 : AST IS DISMISSED IMMEDIATELY. OTHERWISE THE SAVED PROCESS | 
F 63 : ARGUMENT AND FRAME POINTERS ARE RESTORED, AST'S ARE ENABLED, | 
r 638 ; AND THE COMMAND INTERPRETER RESTART POINT IS JUMPED TO. | 
- 
F 640 .ENABL LSB | 
OFFC f 64g .ENTRY DCLSCONTRLY, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> | 
| 
FBCC’ 30 1 644 BSBY = CLISGET_P GET ADDRESS 7% rit PROCESS WORK AREA | 
00C4 (CB 04 AC BO 4 645 MOVW 4CAP), PRE 6 _ASTSTATUS(R11) :SAVE A TUS 
04 AC 0000'S 81 A 646 chPY #SS$_HANGOP,4<AP) : TERAINAL E Cine sTANGUP? 
é 648 SETBIT PRC_V_HANGUP,PRC_W_FLAGS(R11) ;SET HANGUP PENDING | 
09 «11 649 BRB 15$" :NO MORE CONTROL Y° : ALLOWED 
0308 30 0449 650 10$:  BSBW  DCLSENBCONTRLY LE ONTR OL Y AST | 
3F 0084 (CB 2 19~S—s«éE:? g 651 BBC #PRC_V CTRLY, -PRC_L _OuTOFBANDCRITY,3 -BR IF NOT ALLOWED | 
63¢ 15$:  $SETEF_S EFR=731 NATE stinkeat WAIT COMMAND 
66 AB «O01Ss«BO B 65 mOVW 7 #1 PRC _W_WAITIOSB(R11) 
58 14 AC 18 EO F 654 BBS #PSL $V" CORMOD e0(AP) , 608" sf SET, PREVIOUS MODE USER 
0088 D5 0464 655 TSTL PR up VonciLy ea ;0SER DEFINED ACTI 
12 0468 656 BNEO os” :BR IF YES = EXCUTE THE COMMAND | 
0000'CF 9F 046A 65 PUSHAB W*DCLS$LOW_LIMIT [GET ADDRESS OF LOWER ADDRESS LIMIT 
10 AC bE D1 638 CMPL  (SP)+, 16(AP) ; ADDRESS WITHIN LIMITS? 
A 1A 5 6 BGTRU 208 [IF GTRU NO 
0000'CF 9F 0474 660 PUSHAB W*DCLSHIGH_LIMIT [GET ADDRESS OF HIGH ADDRESS LIMIT | 
10 AC BE D1 478 661 CMPL (SP)+, 16CAP) : ADDRESS WITHIN LIMITS? | 
D WA O47C 6 ; BGTRU 50$ “IF TRY YES | 
Sh 80 GSS RIG GE 2 Bhs Fete vrata eae gt AeSiaTHS Sb HE BET: SOMEHOW RE 
SC AB OD 665 TSTL = PRE_E INDEPTHRTIY ~~ SINDIRECT LEVEL FERor | 


H = CONDITION AND CONTROL/Y AST rout Ines 15=SEP=1984 23:50: AX/VMS Macro v04-00 Page 14 
YOee bbe CONTROL Y AST HANDLER 127-356-1382 99:89:38 feu SRC JHANDLE .MAR; 3 ” i 
1 BEQL 408 “IF EQL 
68 AB 83 A 308: BISW FPRC_M_CNTRLY PRC_W.FLAGS(RII) «38 Rie CONTROL Y/C REQUEST 
04 : $: RET ; 
if PREVIOUS MODE SUPERVISOR 
7 Py 
5D 04608 OD 74 40$:  MOVL PRC , SAVFP(R11) FP ZRESTORE SAVED FRAME POINTER 
5a 30 D 673 MOVL  FP,R10 [SET ADDRESS OF WRK AREA 
1 i: BRB 70$ : 
i 
rf WE HAVE DETECTED A CONTROL/Y WHILE ACTIVATING AN IMAGE BUT BEFORE 
6 0; ; THE IMAGE WAS ACTUALLY STARTED IN USER MODE. 
3 ¢ ? CREATE DUMMY CONTROL Y/C AST FRAME WHICH CAN EVENTUALLY BE PLUGGED 
33 WITH A MODIFIED RO AND PC/PSL (EXESEXIT_IMAGE) BY IMAGE RUNDOWN. 
5 oO 
5D 04 AB 00 6 6 50$:  MOVL PRC ato SAVFP(R11) FP RESTORE SAVED FRAME POINTER 
SA SD 00 6 MOVL DRESS OF AREA 
56 F4 AA 18 ¢ 688 SUBL ve 4,WRK_L SAVSP(R10), Re’ ALLOCATE DUMMY WAST ARGUMENT LIST 
66 6C 1 8 689 MOVES #64. (APY, TRE :MOVE REAL LIST INTO ALLOCATED SPACE 
SE 56 00 630 MOVL  R6,SP SRESET STACK POINTER 
692 ; 
638 + ASSUME DUMMY CONTROL Y/C AST FRAME IS ON TOP OF STACK. 
695 


696 DCLSSCNTRLY:: ; SUPERVISOR CONTROL v/C 
5c SE 0 69 MOVL  SP,AP [SET ARGUMENT POINTER 
FS'AF 86 OOF 698 PUSHAB B*80$ SET RETURN ADDRESS 
7E° «SCO OD 99 MOVQ = AP, = (SP) 3SAV VE ARGUMENT AND FRAME POINTERS 
7E «7C 00 CLRQ 0 = §P) [CLEAR PSW, MASK AND HANDLER ADDRESS 
5D SE 00 701 MOVL SP, FP [SET NEW FRAME POINTER 
703 ; 
u 4; PREVIOUS MODE USER 
7 oO 
SE F486 gp 3 707 60$: MOVAB WRK_K_LENGTH(FP),SP A LOCATE COMMAND WORK AREA 
A 5D p 7 ‘ MOVL FP R1 “SET ADDRESS OF WRK AREA 
8 68 : 7 MOG pat L_SAVAP(R11) ,WRK_L ShYAP NOD; » SAVE ARGUMENT AND FRAME POINTERS 
5c 4 ¢ 710 ADDL #207AP :POIN 0 $A AVED PSL 
ee 711 MOVG AP,PRC_L_SAVAP(R11) VE CUR URRENY a RGUMENT AND FRAME POINTERS 
68 AB 00 BF «A rie 70$: ®B1SW aPRC A “YCEVEL, PRC_W_ FLAGS CRI ) :SET CONTROL Y/C LEVEL 
BC 71 CHAK #0, gENABLE “AST’S 
714 SETBIT WRK_V_COMMAND WRK _U_FLAGS(R} ) :SET COMMAND IN EXECUTION 
0088 fe D5 215 st Pre LTONCTLY(F  *) R DEFINED _AcT10N? 
Oc OOAF CB OCOk:SCé a BBC #PRC_V_PRIV,PRC_B_ vunesoiteans Hed :ORANCH IF NOT PRIVILEGED IMAGE 
18 3 SAVE THE IMAGE PRIVILEGES FOR THE CONTINUE COMMAND TO RESTORE 
i SET THE IMAGE PRIVILEGES TO THE PROCESS PRIVILEGES 
FB17° 30 752 ° BSBY © DCLSSAVE_PRIVS : 


K 
H = CONDITION AND CONTROL/Y AST 19" SEP=1984 AX/VMS Macro Page 1 
Hoe bi2 CONTROL YoAST MANDO ER yarSeer ihe FFi89ids YOR MES Hace, vOu;00, - By 
9 | 9 ; BRB 
FB12" 72$:  BSBW UNDOWN BUT PRESERVE INDIRECT LEVELS | 
68 AB AB 04 5 Bi SW sie hn tye PRC_W_ Fuacé thi) ;SET CONTROL Y/C REQUEST | 
FB0B' 3 af 6 75$: BRW DCL RESTART | 
AF ; 
Mf e > CONTINUE AFTER SIMULATED CONTROL Y/C AST FROM USER MODE 
GF 731° 
SE 08 CO 0465 «7 é 80$: ADDL 4#8,SP ; REMOVE Dummy AST COUNT AND ASTPRM 
03 BA O04F8 7 POPR #*M<RO,R1> SRESTORE SAVED RO AN PLUGGED) 
02 O4FA 734 REI RETURN 18 EXESEXIT” OMAGE. (PLUGGED) 
4FB 735 .DSABL LSB 


eo 
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J 
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ee 
m— 
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—- 
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14-SEP- DCL.SRCJHANDLE .MAR; 3 
-SBTTL CONTROL T AST HANDLER | 
; DCLSCONTRLT = CONTROL T AST HANDLER 

; THIS ROUTINE IS CALLED WHEN A CONTROL T AST OCCURS. 

3 INPUTS: 

; AP = ADDRESS OF AST ARGUMENT LIST. 

OUTPUTS: 


; THE CONTROL T AST IS AUTOMATICALLY RE-ENABLED AND A LINE OF PROCESS 
. STATUS INFORMATION IS OUTPUT. 


ETRLT_ARGS = 0 


«MACRO CTRLT WNAME,LENGTH=4 
«WORD NGTH 

«WORD JPI$_'NAME 

CTRLT_ARGS = CTRLT_ARGS+1 
ITEM_*NAME' = 12 *”<8-CTRLT_ARGS> 
Pc = -4 * CTRLT_ARGS 


00000000 


oma ete desdestesdedestestesdestestestesdestesTesdesdestesTesdesdestestests sts) 


166 CTRLT_TABLE: 
76 CTRLT PAGEFLTS 
4 764 CTRLT GPGCNT 
5 765 CTRLT PPGCNT 
5 766 CTRLT CPUTIM 
508 767 CTRLT DIRIO 
50F 768 CTRLT BUFIO 
513 769 CTRLT PRCNAM,16 
517 770 CTRLT  IMAGNAME ,64 
518 «771 
518 ak CTRLTMSG: 
21 20 53 41 $i 20 53 41 21 53 41 21 0518 77 eASCIIT GIAS!AS AS !9AS CPU=!2T PF=!UL I10=!UL MEM=!UL& 
¢0 Po $3 21 30 55 50 43 20 rH 41 39 2¢f 
5 21 3D 4F 49 $9 4C 55 21 30 46 50 05353 
4C 55 21 3D 4D 45 4D 20 4C = 0535F 
548 774 CTRLTMSGEND: 
20 20 29 4C 43 44 28 20 20 0548 775 DCL: ASCII / (OCL) / 
22! of DCLEND: 
33] o78 LNMSSYSTEM TABLE: 
SF 4D 45 54 53 59 53 24 4D és 4C 99" 551 77 eASCIC = /LNMSSYSTEM_TABLE/ 
45 4C 42 41 54 055d 
10 0551 
56 780 
56 781 SYSSNODE: 
45 44 4F 4E 24 53 59 53 60" 22 782 eASCIC /SYSSNODE/ 
568 Ba 
OFFC 28 4 5 ~ENTRY DCLSCONTRLT,“M<R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11> 
5B SE) «60 «(0560 SC? ; MOVL SP,R11 sSAVE STACK POINTER 


m 9 
= CONDITION AND CONTROL/Y AST ROUTINES 15S :5 AX/VMS Macro V04-00 Page 1 
CONTROL 1 AST HANDLER large a jobs 17209108 Yon tac TaaNOLE Mancs ~ 4 
mp 
f £30 : CHECK TRANSLATION OF SYSSNODE FIRST. 
37 136 : BUILD NECESSARY DESCRIPTORS AND ITEM LISTS 
SE 12 ¢c2 0570 794° SUBL #18,SP :SPACE FOR NODE NAME 
7E 04 0573 795 CLRL 0s = SP) SMARK END OF LIST 
FL AE OF «(057 196 PUSHAB -12(SP) ‘SET ADDRESS TO RETURN LENGTH 
00020010 BF pp Os7B 798 PUSH” CNRS. STRINGAI6+16 CSET ITEM TYPE AND LENGTH 
A gf DO 3 199 MOVL SP,R10 [SAVE ADDR. OF ITEM LIST 
7E CB AF 96 0584 801 MOVAB LNMSSYSTEM_TABLE+1,-(SP) :GET ADDR. OF TABLE NAME 
7E (CO AF 9A 0588 0¢ MOVZBL LNMSSYSTEM~TABLE,=(SP) 'GET LENGTH OF TABLE NAME 
55. SE 00 38¢ 803 MOVL SP,R5 [FORM A DESCRIPTOR 
7E DI AF 96 O58F 805 MOVAB SYSS$NODE+1,-(SP) :FORM A DISCRIPTOR LOGIC. NAME 
7E CC AF 9A 0593 806 MOVZBL SYSS$NODE,-(SP) 'GET L 
56 SE 00 0597 807 MOVL SP,R6 [FORM A DESCRIPTOR 
059A 809 : GET TRANSLATION OF SYSS$NODE 
O89, Bil STRNLNM_S TABNAM=(R5) ,= TABLE NAME, ADDR. 
059A 1 LOGNAM=(R6) .- :"'SYS$NOD 
059A H ITMLST=(R105 S ITEM Mt 
50 0000'°8F 81 O5AB 814 CMPW = #SS$_NOLOGNAM, RO [DID TRANSLATION OCCUR? 
08 13 0580 815 BEQL =s«1$ [IF EQ, DON'T HAVE TRANS. 
3750 «£9 0582 816 BLBC ~=_-« RO, 2 SEXIT IF ERROR 
0985 i : WILL USE TRANSLATION OF SYSS$NODE FOR NODE NAME 
02 AA B4 0585 820° CLRW = 2(R10) :CLEAN UP DESCRIPTOR 
4A 11 0588 821 BRB 5$ [GET SYSTEM TIME 
Sepa 898 | 
OBA 8 4 : GET NODE NAME WITH $GETSYI. 
SE 12 C2 OSBA 8 $ is: SUBL  #18,SP :SPACE FOR NODE NAME 
7E DG OSD & CLRL 0s = (SP [MARK END OF LIST 
F4 AE OF =«OSBF 8 8 PUSHAB -12(SP) :SET ADDRESS TO RETURN LENGTH 
OC AE OF 3Ce 9 PUSHAB 12(SP) 'SET ADDRESS OF B 
10090010 8F DD 05¢ 0 PUSHL #SY1$_NODENAME@16+16 [SET ITEM TYPE AND LENGTH 
5A SE 0 3c 1 MOVL SP,R10 [SAVE ADDRESS OF DESCR 
= ze ¢ 3 é cLRG = (SP) ZALLOCATE AN 10SB 
ih, : 4 SGETSYIU, 5. pT ST= (R10) .~ 'GET SYSTEM INFO 
5D 6 peers f : 
BC rt SIF PROBLEM WITH GETJPI, THEN EXIT 
50° ee ? 3e6 8 aes (365 RO GET ISB STATUS 
ze E9 O5EC 23: BLBC 168 TEXIT IF ERRO 
2 AA BS SEF 40 CLRW Beal ) SINIT THE DESCRIPTOR 
A SF 4 MOVZWL (R10),RO ;NODE NAME PRESENT? 
” 6D ; iH ‘3 BEQL 6 S$ [NO, DON'T INSERT '::° 


| 


© 
~Oco 


TSTw  —- (R7) ils IMAGE NAME NULL? 
BNEQ 4 THEN EXTRACT NAME 
1 MOVZBL #DCLEND-DCL,(R7) INSERT DEFAULT STRING 


9 | 
HAND = CONDITION AND CONTROL/Y AST ROUTINES 15-SEP-19 :50: AX/VMS Macro V04-00 P 18 | 
yes CONTROL T AST HANDLER 127865 = 138 $3 :07: eth SRCJHANDLE .MAR; 3 te (6) 
50 4 BAGO i 57 45 MOVAB 4 (810)CRO7 -RO :RO = ADDR. , WHERE TO INSERT '::° | 
6A A 691 ie ADDW 3s #2, MRioS tADJUST NODE NAME LENGTH 
604 5 GET SYSTEM TIME. | 
SE p> 0604 29 is. PUS PUSH ADDR OF LEFT OVER 10SB | 
ze 08 9A 606 3 ROvZBL $B. =(SP) [PUSH BUFFER LENGTH | 
60C 854 SASCTIM_S © TIMLEN=(R9) ,- :GET CURRENT TIME 
sh ta | 
0350 €8 0618 85 BLBS RO, 208 ‘ :IF PROBLEM, THEN EXIT 
0128 5 O61E 58 10$: BRW 156$ . 
Bsa 
Oe Bet : GET JPI INFORMATION. | 
7E D4 0621 bes 50S: CLRL = (SP) yMARK END OF LIST | 
55 SE DO 0623 864 MOVL SP SINIT LIST PTR 
SE 00000060 BF C2 0626 865 SUBL sae eratt ARGS, SP SINIT BUFFER PTR 
S52. FECA CE SE 062D 866 MOVAB CTRLT_TABLE,R2 SINIT TABLE PTR 
534 0632 867 CLRL —soR3 [INIT ARG COUNT 
75 F4 AS 3E 0634 869 30$: MOVAW -12(R5),-(R5) ;SET RETURN LEN ADDR 
50 62 3C 0638 870 MOVZWL (R2),RO *GET BUFFER LENGTH 
SE 500-2 s«063B—OéB71 SUBL RO, S SALLOCATE BUF a 
75 5E DO 063E 872 MOVL  $P.=(RS) SET BUFFER. AD DR 
75 82 DO 0641 87 MOVL  (R2)+,-(R5) [SET LEN AND TYPE 
ec 53 07”—O#F 3 0644 874 AOBLEQ #CTRLT_ARGS-1,R3,30$ :LOOP TILL NeND OF LIST | 
oO BR aune cast ‘paceasy ances | 
064D er8 SGETJPIW.S’ ITMLST=(R5),- [GET JOB/PROCESS INFO 
beep 880 ert aa 
0350 €9 0660 881 323 :1f PROBLEM WITH GETJPI. THEN EXIT 
50 6€ 3C 066 Be MOVZWL (SP),RO :GET 10SB STATUS 
SE 08 (CO 0666 883 32$: ADDL  4#8,SP :POP 10SB 
B2 50 €9 669 B84 BLBC RO, 108 sEXIT IF ERROR | 
7E 00 FOAS FFFE7960 ef 7A D66¢ 886 MUL #-100000, BUFF _CPUTIM(RS),#0,-(SP) | ;CONVERT CPUTIME TO 100NS UNITS | 
FR AS FG is C0 79 88 ADDL = BUFF _PPGCNT(RS) ,BUFF_GPGCNT(RS) ;CALCULATE PAGE COUNT | 
EB AS EC AS C ze ADDL BUFF =D LRIOCRS) Cie BuFIO(RS)  :CALCU ULATE 1/0 TOTAL 
OF AS) «6B4 (068 90 CLRW =o TEMP RCNAM CLEAR co 
58 O¢ AS 69E 0686 = 891 MOVAB ITEMTPRCN RS STORE ADDRESS OF DESC 
205 B4 O6BA 36 CL HTERCPRCNARCAS) ) [CLEAR JPI COD 
57 65 9% 680 93 MOVAB I TEMTIMAGNAME (RS) ,R7 SSTORE ADDRESS OF DESC 
69 95 ; 
i %6 : IF THE IMAGNAME IS NULL, THEN USE "(DCL)'*. OTHERWISE, GET THE NINE 
69 97 : CHARACTER FILE NAME FROM THE IMAGE NAME. 
a. fs rus 9 Py 
630 
69 
694 


° 
SeN 
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ve) 
so 
So 
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10 
- T NES 15-SEP-1984 23:50:33 YAX/VMS Macro v04-00 Page 
youn 2 CONTROL TOAST AMON EROT se eae lange b= 1984 99:39:68 HOCL SRCJHANDLE-MARS3 
MOVAB DCL,4(R7) 
sect ney {6 f 630 $08 BRB 1008 
MOVQ = (R7) ,R2 :GET LENGTH AND ADDRESS 
os 85 OR OB RRS oF gos; Core peAyEeoR2, (RS) ‘OED EOLON 
A 13 06A 309 BEQL. 608 ‘BRANCH IF NOT FOUND 
0 01 B 6A8 908 SUBL3.  #1,RO.R :GET NEW LENGTH 
3g 24 01 ¢i O6AC 909 ADDL3 #1 RRS 'GET NEW ADDRESS 
CG a Pe a eee fies (pes ca 
as itt gad BA #4 beBs 313 apts nit Phd aee ‘BRANCH IF NOT FOUND 
0 01 3 689 318 SUBL3 #1,RO,R :GET NEW LENGTH 
3g 34 83 C1 068D 914 ADB #1 RRs iGET NEW ADDRESS 
EF 11 6c} 319 BRB 60$ [LOOK FOR ANOTHER "J 
c : . :FIND CLOSING BRACKET 
ale des a #4 a6¢3 317 wt SPaL * temescdrms “BRANCH IF NOT FOUND 
52 50 01 R 06(9 919 SUBL3 «#1, ROR [GET NEW LENGTH 
¢ 51 1 Ci 06CD 920 rt #1-R1, ;GET NEW ADDRESS 
FO. oi 0601 931 BRB 65$ [LOOK FOR ANOTHER '> 
: . :FIND PERIOD 
wsghhchoue § #4 0603 368 _— beaL ae exe ‘BRANCH IF NOT FOUND 
52 50 C2 0609 35¢ SUBL RO, R2 TREMOVE FILE TYPE 
6? 52) «7D enc 386 90$: MOVO R2.¢R7) [STORE LENGTH AND ADDRESS 
se 
O6pF 930 t CALL FAO TO FORMAT THE MESSAGE. 
D . 
: SALLOCATE SPACE FOR FAO RESULT 
Se Cnnne0ms pr ee eRe tag f00s: pum 782.8F See era TEFER ADDR 
7E 52° Br 9A O6E8 934 ROVZBL #132,-(SP) [PUSH BUFFER LENGTH 
O6EF 936 : 
TRLTM ZADDRESS OF CTRL STRING 
eee Sp A bers 33 mOVIBE ATRL TMSGEND=CTRLTHSG,~(SPD SLENGTH OF CTRL STRING 
53 i: D0 O6r6 959 MOVL SPR 
boro 941 $FAO_S CTRSTR = (R3),- 
$3 ae puter © tal 
berg Me P1=R10,-. ;NODE NAME 
6F9 = 945 P2 = RB,- [PROCESS NAME 
pore 9% Pg = R9.- [CURRENT TIME 
06F9 9c9 Pa = R7.- {IMAGE NAME 
bers yk: P6 = BUFF _PAGEFLTS(RS),- [PAGE FAULTS 
F9 «950 P? = BUFF BUFIO(R5),- [1/0 TOTAL 
bro 951 ®8 = BUFF-GPGCNT (RSS TMEMORY USAGE ‘ 
3050 +9 On9 93¢ BL8C ~—_- RO, 1508 [IF PROBLEM, THEN EX! 
50 B8E& 7D a 994 MOVa = (SP)+,RO :POP CTRL STRING DESC 
71F 6956; 
$ 325 : BROADCAST THE MESSAGE. 
71F 4 =6958 gs 


i. 
HAND CONDITION AND CONTROL/Y AST ROUTINES 15-SEP-1984 23:50:33 VAX/VMS Macro V04-00 Page 20 
YOeebb2 CONTROL T AST HANDLER 1278 Eb- 1382 3: 39; 3 tel SRC JHANDLE .MAR; 3 Te 
51 oe el F pO O71F 959 MOVL #CTLSAG CLIDATA*PPDS$T_INPDVI,R1 ;GET ADDR OF DEVICE NAME 
1 p: 7 § 60 MOVZBL (R1)+,R0 LENGTH OF DEVICE N 
0 7 961 MOVO RO 2tER) i CREATE DESCRIPTOR 
E re 726 (96 CLROQ (§p) SALLOCATE AN I0SB 
SEO , E 63 MOVL sp RO : 
7%) 965 SBRKTHRUW_S MSGBU UF =(R2) = - ;BROADCAST THE MESSAGE 
731 366 SENDTO 
731496 SND NDTYPcHBAK SC DEVICE,~ 
731 968 REQID=#BRKSC_BCL, 
731 3 EFN=#31 
731 3 0 [OSB=(RO) 
74C 971 
SE 5B dO O74¢ 976 150$: MOVL  R11,SP SRESTORE STACK PTR | 
O74F 97 STATUS NORMAL SSET SUCCESS 
04 0796 97% RET 
0757-975 


HAND = CONDITION AND 
v04-002 ENABLE CONTROL 
757 77 
757 4 
ee 
757) 981 
 @S, § 
757?) — 9 
757 = 984 
a 
757 387 
757 +t] 
757) 9 
757 =—990 
757) — 991 
757 44 
50 68 06 €0 0757 99 
50.08 ry, DO 075 994 
47 18 9 ft 76 995 
E C 076 99 
50 SE 00 0767 99 
76A 8998 
O76A 999 
76A 1000 
76A 1001 
76A 1906 
76A 100 
790 1004 
oocé8 cB SCS0)=S BO (079 4 
C6 (CB ge BO 0795 1 38 
0 11 079A 100 
0B 11 O79C 1008 
Q079E 1009 
03 50 €9 OQ79E 1010 
05 6— €8 OQ7A1 1011 
7AQ 1 i 
7A9 101 
SE 08 CO Q7A9 1014 
05 O7AC 1015 


D.10 
VAST | AST ROUTINES T2~$EP=1986 97:07:09 EDcLesacIMANDLEcRaRS © 88° 2y 


m ~SBTTL ENABLE CONTROL Y AST 
; DCLSENBCONTRLY = ENABLE CONTROL Y AST 

; THIS ROUTINE IS CALLED TO ENABLE CONTROL Y AST'S ON THE INPUT CHANNEL. 
3 INPUTS: 

; R11 = BASE ADDRESS OF PROCESS WORK AREA. 
; OUTPUTS: 

: RO = FINAL REQUEST STATUS. 


DCLSENBCONTRLY:: ENAB LE CONTROL Y AST 
BBS —- #PRC_V_MODE PRC rf FLAGS(RI1), 908° SET, NOT INTERACTIVE JOB 
MOVL PRC TNPRAB(R seer A DDRESS OF INPUT RAB 
BBC wed 0_TRM, Hag eRe cROD. 90$ =o: IF ctR ‘INPUT’ NOT FROM TERMINAL 
cura 4s ;ALLOCATE 10S8 
$Q10w_s Erica Hes SYSEFN,- EVENT FLAG 
CHAN=PRC_W_INPCHAN(R11),- INPUT CH HANNEL 
FUNC=#108 SETMODE 108M CTRLYAST,- ;FUNCTION CODE 
Pi=W*DCLSCONTRLY,- sAST R ROUTINE CADDRESS 
P3=#PSLSC SUPER TACCESS 
MOVW RO, PRC_W_ASTRETN(R11) ;SAVE RETURN STATUS 
MOVW (sb). PRC"W_ASTIOSB(R11) A 10SB 
BRB CHECK FOR REENABLE ERRORS 
BRB 853 STEMPCRARILY SKIP ERROR CHECKING 
67$:  BLBC  R0,70$ :SET HANGUP PENDING IF ERROR 
BLBS  (SP),85$ [SKIP IF O 
70$:  SETBIT PRC_V_HANGUP,PRC_W_FLAGS(R11) | :SET HANGUP PENDING IF ERROR 
85$: ADDL #8,SP :POP 10SB 
90$: RSB 


———— a — — — 
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7a 7 ; «SBTTL DISABLE CONTROL Y AST 
uN i§ ; DCLSDSBCONTRLY = DISABLE CONTROL Y AST 
AD ° ; THIS ROUTINE IS CALLED TO DISABLE CONTROL Y AST'S ON THE INPUT CHANNEL. 
Ap § > INPUTS: 
PAD 5: R11 = BASE ADDRESS OF PROCESS WORK AREA. 
AD 5 : OUTPUTS: 
7AD 1 § : RO = FINAL REQUEST STATUS. 
8 188 
7AD 1 : DCLSDSBCONTRLY:: DISAB BLE CONTROL Y AST 
35 68 AB O06) «CEO «CO7AD 1 BBS _ #PRC_V_MODE PRC rf F AGS(R11),90$' : IF NOT INTERACTIVE JOB 
AB DO 0782 1034 MOVL PRC TNPRAB(R :GET DoRE Ss ot. INPUT RAB 
2c 18 AO 0 1 0786 1035 BBC #oed 0_TRM, Hoy > TXcROD, 908 =: IF TR ‘NOT FROM TERMINAL 
C 0788 10 6 CLROQ i ste 10s8. 
50 SE 00 07BD 19 MOVL 3p SRO 
700 8 $Ql0w_s EFAS #EXESC $C_SYSEFN,~ EVENT FLAG 
97¢0 1929 CHAN= =PRC G_INPCHAN(R11).- TIN NPUT CH ANNEL 
7CO0 1041 FUNC=#10$_SETMODE! IOSM_CTRLYAST.= ;FUNCTION CODE 
0760 1048 Piz *sa8T ROUTINE. ADDRESS 
07C0 104 PS=#BSL8C _SUPER SACCESS MODE 
SE 08 CO O7E4 1044 ADDL = #8, S [POP 10S 
05 O7E7 1045 90$:  RSB 
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TROL/Y AST ROUTINES 15-SEP-1984 
/T AST'S 14-SEP-1984 
«SBTTL ENABLE/DISABLE CTRL/T AST'S 


3+ 
; DCLSENBCONTRLT = ENABLE/DISABLE CTRL/T AST'S 
; THIS ROUTINE IS CALLED TO ENABLE/DISABLE CTRL/T AST’S ON THE 


; INPUT CHANNEL. 


; INPUTS: 
R1 


; OUTPUTS: 


= CONTROL MAS 
R11 = BASE ADDRES 


K 
S OF PROCESS WORK AREA. 


RO = FINAL REQUEST STATUS. 


R2,-(SP) 
DCLSCONTRLT,R2 

#PRC_M_CTRLT 

SP,R3 

#PRC_V_CTRLT.R1, 108 

=(SP) 

SP,RO 

EF N=#EXESC_SYSEFN,~ 

10SB=(RO) ,= 
CHAN=PRC_W_INPCHAN(R11),- 
FUNC=#108_SETMODE ! 1O$M_OUTBAND,- 
P1=(R2),- 

Peeks - 

P3=#PSLSC_SUPER 

(SPS+,R2 


47:09:09 EDEL YSRchINaNDLE mans 3 


SALLOCATE 10SB 
TEVENT FLAG 


: INPUT_CHANNEL 

FUNCTION CODE 
zAST ROUTINE ADDRESS 
ADDRESS OF CHARACTER MASK 
sACCESS MODE 


3POP_STACK 
RESTORE REGISTERS 
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HAND = CONDITION AND CONTROL/Y AST ROUINES  15-SEP=1984 23:50:33 VAX/VMS Macro VO4- ° Fi 
ved RESET OUT AST 1a=SEpriobe FF09209 Lon ea TMANSLE Rages age %) 


5 - ~SBTTL RESET OUT-OF-BAND AST'S 

$ ; DCLSRESETOOB - RESET OUT-OF-BAND AST’S 

; ; THIS ROUTINE IS CALLED TO ENABLE OR DISABLE OUT-OF-BAND AST'S ON THE INPUT 
+ CHANNEL. 


; INPUTS: 


R1 = CONTROL MASK. BITS ARE SET IF AST SHOULD BE ENABLED, CLEAR 
IF AST SHOULD BE DISABLED. 


R11 = BASE ADDRESS OF PROCESS WORK AREA. 


Ot ss bs se ss 2 st es te ts te tt 
tt HA QDOOOODOOOODOOCOOO 
oooowovun7o 
Me 
Sete Sete Ge Se Ge Se Ge Ge Se Ge Gee 
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9 
° DCLSRESETOOB: : ABLE OR DISABLE OUT-OF-BAND AST 
25 68 AB 06 £0 : BBS #PRC_V MODE PRC WAFLAGS(RI1), 908° en SET NOT INTERACTIVE JOB 
0 08 AB D MOVL PRC CoN TNPRAB(RIT) -R :GET A SDRESS OF INPUT RAB 
C18 a0 02. €1 4 BBC #DEVS0_TRM, RABSL. ETX(ROD, 90$ ss: IF CLR. ‘INPUT’ NOT FROM TERMINAL 
51 DD 06 PUSHL 1 : SAVE AST CHARACTER MASK 
0851 14 €1 084 0 BBC #PRC_V_CTRLT.R1,10$ F DISABLING CTRL/T'S 
0B 0084 (B14 FO 4 8 BBS #PRC-V~CTRLT-PRC_L “OUTOFBAND(RI15, Sos - sSKIP IF ALREADY ENABLED 
06 11 084 0 BRB 20$ ~ NABLE CTRL/T AST 
03 0084 (B14 3 4 10 10$: BBC #PRC_V_CTRLT,PRC_L _OUTOFBAND(R115 30$ ;SKIP IF ALREADY DISABLED 
FF92, 30 3 1 20$:  BSBW  #DCLSENBCONTRLT sENABLE/DISABLE CTRL/T AST’S 
0084 (BBE v0 5 i 30$:  MOVL (SP)+,PRC_L_OUTOFBAND(R11) :SET OUT-OF-BAND MASK 
0 0 3 1 90$:  RSB 


H 1 
HA = CONDITION AND CONTROL/Y AST Rou Ines 15-SEP-1984 23:50: AX/VMS Macro v04-00 Pa 5 
Ved COMMAND LOERPRETER CONDITION HANDLE 1278 et} 93:89:88 YOCL SRCIHANDLE MAR: 3 | > hp 
¢ 117 Hi .SBTTL COMMAND INTERPRETER CONDITION HANDLER 
¢ 118 3 DCLSCONDHAND = COMMAND INTERPRETER CONDITION HANDLER 
¢ 11 ? ¢ THIS ROUTINE IS CALLED AS THE RESULT OF AN EXCEPTION CONDITION THAT OCCURS 
¢ i ; ; WHILE EXECUTING IN THE COMMAND INTERPRETER. 
c i 4 : INPUTS: 
3¢ u : ; MECHANISM AND SIGNAL VECTORS 
¢ i 8 ; OUTPUTS: 
aC 1 0 ; ANY EXIT HANDLERS ARE CANCELLED AND THE CONDITION IS RESIGNALLED. 
5¢ 61132 ° 
0000 83 11 § .ENTRY DCLSCONDHAND, “M<> 
5E 1134 SCANEXH_S ;CANCEL ANY EXIT HANDLERS 
50 D4 0867 1135 CLRL “RO SRESIGNAL THE CONDITION 
04 0869 1136 
086A 1137 
086A 1138 END 
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-SEP- :50: AX/VMS Macro v04-00 Page 28 
HANDLE <opaamccumtvannt espttore ct Mes Soomcbagege: Re wth Be te Aa hit 
Symbol table : 
= 
PRC_W_ATTMBY 8 SPUN_V WALT oh 
PRE “Un NPCRAN ee SPWN-W-FLAGS " 
PRC vIn A SPUN"W"PMPTCTRL A 
PRC _WONLEVEL 000114 SPUN-W~SIZE 00% 
PRC wOuTiFl 116 SPUN-W"UNIT 8 
PRC_W_OUTISI ‘4. $s$ ACCVIO aeneeeee 86 X 8 
ORE UTR Ci t $$$~HANGUP teeters 
PRC_W_OUTMBXREF E SS$~NOLOGNAM ee ekKkaw xX 0 
eRe WOU TREXS IZ i SYIS_NODENAME = 00001009 
CW_WAlT10SB . SYM~B-NONUNIQUE 9000008 
PSLSV—CURMOD ° SYM-K-PERM = 00 9901 
aesu C1 ; FR 02 SYM-K~STRING = 90000000 
: ° 8 SYMmL~BL 90000004 
SL_SAVE_ SYM"L FL 0000000 
SF SL SAV : 5 SYM~T~SYMBOL 0000000 
SFSS-STACROFFS E SYM-W-SIZE 0000000 
SFSV_STACKOFFS & SYSSASCTIM aeeeneee 6X 02 
SF SW SAVE _MA ad $ R 02 SYSSBRKTHRUW aaeneekee 6X 0 
SPA SYSSCANEXH eeucecee GX fF 
SPWN_B_AC E 4 SYSSCRELNM ; aeeeeene 6X 0 
SPWN_B_CONT INUE F SYSSDELLNM RERRRRER Gx 0 
SPWN_B_EFN SYSSFAO eeeeneeer = X 0 
SPWN_B_PROMPTLEN 2 SYS$GETUP IW ees 
SPWN_C_LENGTH 94644 SYSSGETSYIW kereeaee GX 0 
SPWN_G_PROMPT 4460 SYSSNODE 00000562 R02 
SPWN_G_QUOTA 000006 SYS$Q10W aeneeeee GX 02 
SPWN_K-LENGTH 0000006 svszeiey, satesess GX 02 
SPWN_L_ASTADR 44 td SYSSTRNLNM teneeeee GX 0 
SPWN_L_ASTPRM 4 44 F4. i DOPT FFFFFFC3 
eet time 90000005 WRK-B_MAXPARM FFFFFFDO 
SPUN TC OUTO 00000 5 WRK-B_MINPARM FFPFFFDI 
SPWN_L—OUTOFBAND 90000038 pe ed FRRFFFCE 
SPWN7L~PRIB 45444 9 WRK~B-PARMSUM FPFPFFCE 
SPUNTL TS TSADR 0000054 WRKTB-RECALLCNT FFFFFFCS 
PWN_L_STSADR 4 4 444 WRK~B-VALLEV FFFFFFC4 
SPUN_L _SUBPID 888 WRK“B-VERBTYP FFFFFFC2 
“onthe 90000080 WRK-C-CMDBUF S17 = Bo gpT es 
SPUN__CRDSTR 90000020 WRK~C~INPBUF SIZ = 00000100 
ra dy 00000038 WRK-C"LENGTH FEF EGBG 
SPWN_Q_10SB Dp j WRK"G BUFFER FFFFF49 
SPUN_O_ROX WRK-G- INPBUF FFFFF896 
SPWN-Q~OUTPUT sats WRK-G"RESULT FFFFF9B6 
SPUN~Q~PRC ; WRK 7KOLENG FFFFF486 
SPWN_Q” TABL gf URK"L-CHARPTR FFFFF OBE 
SPuN_V_CLI : 5 WRK-L~ERRORRTN FFFFFOA 
ra Le : A WRK“L“EXPANDPTR FEEEEGB 
SPUN_V KEYPAD > Bf URK-LCRARKPTR FFFFEGBA 
SPWN_V_L 2 $ WRK"L"“PAROUT FFFFFFD 
SPUN_V NOTIFY > WRK"L~PMPTADDR FFFFFOA 
SPUN_V_OUTPUT ; URK7L~PROMPTRIN FFFFFOA 
SPUN-V-PROMPT 2 $9 WRK-L“PROPTR FEEFEECG 
SPWN-V" TABLE = OF WRK-L_QUABLK 


a a 
Symbol table 


L_READRTN 
URECLORECALLPTR 
Kk. ND 


Initialization 


it Sad 3172 ere. i10 
ie were 


|e processing 
Syabol table sort 
Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


working sex tt 
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FFFFFOAA 
FFFFFFEA 
FFFFFFB6 
FFFFFFBA 
FFFFFFFS 
FFFFFFFC 
FFFFFFFG 
rere ees 
FFFFF9B 
FFFFFFDE 
aaa 
= 000000 
eeeeceS 
FFFFFFF 
teceeone 
FFFFFOSE 
= 000000EF 


00000000 
FFFFFFFC 
0000086A 


Page faults 


mit was 1509 pages. 
pages) of virtual memory were used to buffer 
0 pages of symbol table space os yoceted to hold 
source Lines were read in Pass 1, 
b8 pages of virtual memory were used to define 


15-SEP 
14-SEP- 


PSECT No. Attributes 
( 0.) 00 ¢ OO.) NOPIC  USR 
( 0.) 0O1¢ 1.) NOPIC USR 
( 2154.) 02 ¢ 2.) NOPIC  USR 


CPU Time 
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28 object records in Pass 


macros. 


CON 
CON 
CON 


he intermediate 
4 non-local and 
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ABS 


REL NOSHR 


soar cal symbols. 


AX/VMS 
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acro V04-00 


Page 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NOSHR EXE RD R 


WRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 
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VAX-11 Macro Run Statistics 


foameanr ena ses mrenmamannaea >see $ 


! Macro Library statistics ! 


foemeon noe ocana naam nanen ema s $ 


Macro Library name 


Macros defined 


Han :FDeL0B43 YSBLDOMLB.MLB;1 
JJOCL.MLB; i 1 
SSS0UA SpeL mB: 1 
Fevacie STARLET .ALB; 2 2 
=Be558 0 i Libraries) 42 


2306 GETS were required to define 42 macros. 
There were no errors, warnings or information messages. 
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